;------------------------------------------------------
;
;  ED -- ed the engineer	
;	(c) copyright 1990 Chris Butler
;	last  mod  11/28 2 pm

;VIDEO M

  set allsolns off
  goto top
all:
  set allsolns on	; will cycle thru all modules
top:

;mouse on

global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw  488
global boxh  115
global boxtitle "Max with Ed the engineer"
set h 17	; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14; 
cload max.clp 30 1 0	; max's face
tran on 15
cload cover.clp 32 0 1 
merge toursubs.txt 	; subrs common to all 6 solutions

ed:
set entrypoint "entry_7"	; for MENUing back
pload palette1.pcx 1
palette 1

pnewbuf 1
psetbuf 1
color 0
clearscr
psetbuf
pfade 10 1 300
pfree 1

cfade 20 80,300 30
color 15
rect 240,40 540,439
window 270,40 520,420
color 0
fload ibm16
text 270,400 "Hi! I'm Max, the MAXIMO system manager at the Quench-Rite"
text " Bottling Company."
text 270,320 "We've had MAXIMO Series 3 for about a year now. And MAXIMO has"
text " dramatically improved all aspects of our maintenance effort!"
text 270,200 "The folks at PSDI asked me to tell you about a recent "
text "maintenance issue we resolved with MAXIMO's help. "
text "Please join me in a re-creation of a series of morning meetings."
text 270,60 "Press <Enter> to continue."
waitkey
window

set boxtitle "Max with Ed the engineer"
cload bill.clp 31 1 0
pload proteus.pcx 1
pfade 4 1
pfree 1
note 100 10 10 
waitkey
call steps.txt engr

newbgrnd "bill1a.pcx" 80 0 1 0 200 5
;mouse on

label001:
set str1 "Hi, Ed. How are you today?"
set str2 ""
say 1 @str1 @str2
label1a:
waitkey 50
getcmd
if @0<>"backup" label1b
noise 500 200 50
waitkey 100
goto label1a

label1b:
set str1 "Just fine, Max."
set str2 " "
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label001

label002:
set str1 "Ed, the plant manager called me this morning and asked if I"
set str2 " could look into the Eclipse cartoner bearing failures."
say 1 @str1 @str2
getcmd
if @0=="backup" label1b

label003:
set str1 "OK Max. Those block bearings have been a real pain recently."
set str2 " Maybe we need to schedule a retrofit for all 8 cartoners."
say 0 @str1 @str2
getcmd
if @0=="backup" label002

label004:
set str1 "How many bearings are we talking about, Ed?"
set str2 " "
say 1 @str1 @str2
getcmd
if @0=="backup" label003

label005:
set str1 "Let's look it up in MAXIMO!"
set str2 ""
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label004

label006:
newbgrnd "scr1a.pic" 80,0 1 0 100 22
set str1 " ... from MAXIMO's Main Menu we go to the Equipment Screen ..."
set str2 ""
say 1 @str1 @str2
getcmd
if @0=="backup" label005

labe009:
newbgrnd "2.pcx" 80,80 1 0 100 9
set str1 "I don't know the equipment number so I'll just search on the word "
set str2 "`CARTONER'."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label006

label09a:
newbgrnd "3.pcx" 80,0 1 0 100 9
set str1 "OK, here's the Eclipse cartoner. Now let's look for the bearing "
set str2 "information on the Subassemblies and Parts screen."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label009

label010:
newbgrnd "4.pcx" 80,200 1 0 100 9  ; 
set str1 "... and it looks like we have only one block bearing per cartoner."
set str2 " "
say 1 @str1 @str2
getcmd
if @0=="backup" label09a

label11:
set str1 "Just to be sure, can you give me the Eclipse cartoner engineering "
set str2 "drawing?"
say 0 @str1 @str2
getcmd
if @0=="backup" label010

label012:
set str1 "Sure thing Ed. MAXIMO runs under Microsoft (R) WINDOWS 3.0 (TM) so we"
set str2 " can pull up engineering drawings with a couple keystrokes!"
say 1 @str1 @str2
waitkey 25
getcmd
if @0=="backup" label11

label013:
newbgrnd "5.pcx" 80,0 0 0 300 9 ;
set str1 "OK, the drawing also says just one bearing. Max, we started vibration"
set str2 " monitoring on those bearings. What are the latest readings?"
say 0 @str1 @str2
waitkey 100
getcmd
if @0=="backup" label012

label014:
newbgrnd "6.pcx" 80,260 1 0 100 9 ;
set str1 "Hmmm. MAXIMO Series 3 can jump right into a spreadsheet. Wouldn't "
set str2 "it be nice to look at a trend line of that data?"
say 1 @str1 @str2
getcmd
if @0=="backup" label013

label015:
set str1 "Good idea, Max."
set str2 " "
say 0 @str1 @str2
getcmd
if @0=="backup" label014

label016:
newbgrnd "7.pcx" 80,0 0 0 250 9 ;
set str1 "They're getting very noisy, Max. Let's schedule the retrofit "
set str2 "replacement with the new bearing ASAP!"
say 0 @str1 @str2
getcmd
if @0=="backup" label015

label017:
newbgrnd "bill1a.pcx" 80,0 1 0 100 9 ;
set str1 "OK Ed. I'll go see Sue, the maintenance scheduler, and see what she"
set str2 " can do for us."
say 1 @str1 @str2
getcmd
if @0=="backup" label016

;mouse off 

if @allsolns==on linkit
  link master entry_7  ;otherwise link back to master
linkit:
  link sched.txt all

;   SUBR ED